' Test oh 6 the ei command.txt b+ 2021-02-12 ei AKA ElseIf
' oh version 2021-03-07 allot has changed since
' name change updates now and finally I hope: If, Ei, El, Fi

'Do this once and have it ready, the probability of a number not being divisible by 2, 3, 5, 7
remaining = a[1,d[-1,2],d[-1,6],d[-1,30],d[-1,210]]

.      Let's examine the common factors of some numbers:
[
	inpn (Just Enter or < 2 Ends Run) Please enter a number to test >; num
	If lt[num,2]
		Exit
	El
		If eq[m[num,2],0]
			. /   ;             num; is Even.
		Ei eq[m[num,3],0]
			. /   ;num            ; is Triple.
		Ei eq[m[num,5],0]
			. /   ; num; is Pentacle.
		Ei eq[m[num,7],0]
			. /   ;   num  ; is Septacle.
		El
			. /   ;The probability of ; num; not having a Factor of 2, 3, 4, 5 or 7 is ; remaining;.
		Fi
		.
	Fi
]
. 
.     Thanks for playing.